home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / utilitys / 34 / gfabasic / mouse.lst < prev    next >
File List  |  1986-10-19  |  142b  |  9 lines
  1. Ellipse 320,200,320,200,-7200,0
  2. Do
  3.   I=(I+1) Mod 36
  4.   Deffill 1,3+(I<24),I Mod 24+1
  5.   Repeat
  6.   Until Mousek
  7.   Fill Mousex,Mousey
  8. Loop
  9.